Những câu hỏi liên quan
Hương Đinh
Xem chi tiết
Vương Hương Giang
2 tháng 3 2022 lúc 19:19

XEM HÌNH

imagerotate

Bình luận (0)
Hương Đinh
Xem chi tiết
Đỗ Đức Duy
2 tháng 3 2022 lúc 19:05

image

Bình luận (0)
Hoàng Long Đậu
Xem chi tiết
Thế Thôi
28 tháng 4 2022 lúc 21:01

uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!

Bình luận (5)
Hoàng Long Đậu
29 tháng 4 2022 lúc 0:11

jvgjvjvg

Bình luận (4)
Hoàng Long Đậu
29 tháng 4 2022 lúc 0:11

vjgjvjvjgjv

Bình luận (4)
Nguyễn Thanh Sơn
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2023 lúc 18:31

Đề không rõ ràng. Em xem lại nhé!

Bình luận (0)
Tuấn Trần thị
Xem chi tiết
Kiều Vũ Linh
10 tháng 5 2023 lúc 17:41

Var a:array:[1..50] of real;

i,max:integer;

Begin

For i:=1 to 50 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

Writeln;

max:=a[1];

For i:=2 to 50 do

if a[i]>max then max:=a[i];

Write('Diem trung binh lon nhat la ',max:10:2);

Readln

End.

Bình luận (1)
Kiều Vũ Linh
10 tháng 5 2023 lúc 17:44

Var a:array:[1..50] of real;

i:integer;

max:real;

Begin

For i:=1 to 50 do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

writeln;

max:=a[1];

For i:=2 to 50 do

if a[i] > max then max:=a[i];

write('Diem lon nhat la ',max:10:2);

Readln

End.

Bình luận (1)
quân nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 21:42

a: 

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<t;

return 0;

}

Bình luận (1)
Đỗ vantinh
Xem chi tiết
Kiều Vũ Linh
9 tháng 5 2023 lúc 16:15

Em cho thêm điều kiện loại Khá của em là gì?

Bình luận (0)
Thuytram301
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:02

uses crt;

var a:array[1..100]of real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);

readln;

end. 

Bình luận (1)
Tấn Trọng Huỳnh
Xem chi tiết